/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / lang / modula2 / 438

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 61 74 68 3a 20 74 61 | 6e 6b 2e 6e 65 77 73 2e |Path: ta|nk.news.|
|00000010| 70 69 70 65 78 2e 6e 65 | 74 21 70 69 70 65 78 21 |pipex.ne|t!pipex!|
|00000020| 69 6f 6c 21 75 73 65 6e | 65 74 0a 46 72 6f 6d 3a |iol!usen|et.From:|
|00000030| 20 4d 69 6b 65 20 57 61 | 74 74 65 72 73 6f 6e 20 | Mike Wa|tterson |
|00000040| 3c 64 62 63 6f 6d 70 40 | 69 6f 6c 2e 69 65 3e 0a |<dbcomp@|iol.ie>.|
|00000050| 4e 65 77 73 67 72 6f 75 | 70 73 3a 20 63 6f 6d 70 |Newsgrou|ps: comp|
|00000060| 2e 6c 61 6e 67 2e 6d 6f | 64 75 6c 61 32 0a 53 75 |.lang.mo|dula2.Su|
|00000070| 62 6a 65 63 74 3a 20 52 | 65 61 6c 6c 79 20 62 69 |bject: R|eally bi|
|00000080| 67 20 41 72 72 61 79 73 | 20 77 69 74 68 20 6d 61 |g Arrays| with ma|
|00000090| 78 20 36 34 6b 20 64 61 | 74 61 20 6f 62 6a 65 63 |x 64k da|ta objec|
|000000a0| 74 73 0a 44 61 74 65 3a | 20 31 38 20 4d 61 72 20 |ts.Date:| 18 Mar |
|000000b0| 31 39 39 36 20 31 35 3a | 30 34 3a 33 34 20 47 4d |1996 15:|04:34 GM|
|000000c0| 54 0a 4f 72 67 61 6e 69 | 7a 61 74 69 6f 6e 3a 20 |T.Organi|zation: |
|000000d0| 49 72 65 6c 61 6e 64 20 | 4f 6e 2d 4c 69 6e 65 0a |Ireland |On-Line.|
|000000e0| 4d 65 73 73 61 67 65 2d | 49 44 3a 20 3c 34 69 6a |Message-|ID: <4ij|
|000000f0| 75 32 32 24 38 74 75 40 | 6e 75 61 63 68 74 2e 69 |u22$8tu@|nuacht.i|
|00000100| 6f 6c 2e 69 65 3e 0a 52 | 65 66 65 72 65 6e 63 65 |ol.ie>.R|eference|
|00000110| 73 3a 20 3c 33 31 34 30 | 32 31 38 38 2e 41 37 39 |s: <3140|2188.A79|
|00000120| 40 73 69 6e 65 78 2e 64 | 65 6d 6f 6e 2e 63 6f 2e |@sinex.d|emon.co.|
|00000130| 75 6b 3e 20 3c 34 69 32 | 62 69 61 24 66 39 65 40 |uk> <4i2|bia$f9e@|
|00000140| 73 65 61 67 6f 6f 6e 2e | 6e 65 77 63 61 73 74 6c |seagoon.|newcastl|
|00000150| 65 2e 65 64 75 2e 61 75 | 3e 20 3c 38 32 36 38 38 |e.edu.au|> <82688|
|00000160| 31 31 32 34 73 6e 7a 40 | 6e 65 7a 75 6d 69 2e 64 |1124snz@|nezumi.d|
|00000170| 65 6d 6f 6e 2e 63 6f 2e | 75 6b 3e 0a 4e 4e 54 50 |emon.co.|uk>.NNTP|
|00000180| 2d 50 6f 73 74 69 6e 67 | 2d 48 6f 73 74 3a 20 64 |-Posting|-Host: d|
|00000190| 69 61 6c 75 70 2d 30 30 | 34 2e 6c 69 6d 65 72 69 |ialup-00|4.limeri|
|000001a0| 63 6b 2e 69 6f 6c 2e 69 | 65 0a 4d 69 6d 65 2d 56 |ck.iol.i|e.Mime-V|
|000001b0| 65 72 73 69 6f 6e 3a 20 | 31 2e 30 0a 43 6f 6e 74 |ersion: |1.0.Cont|
|000001c0| 65 6e 74 2d 54 79 70 65 | 3a 20 74 65 78 74 2f 70 |ent-Type|: text/p|
|000001d0| 6c 61 69 6e 3b 20 63 68 | 61 72 73 65 74 3d 75 73 |lain; ch|arset=us|
|000001e0| 2d 61 73 63 69 69 0a 43 | 6f 6e 74 65 6e 74 2d 54 |-ascii.C|ontent-T|
|000001f0| 72 61 6e 73 66 65 72 2d | 45 6e 63 6f 64 69 6e 67 |ransfer-|Encoding|
|00000200| 3a 20 37 62 69 74 0a 58 | 2d 4d 61 69 6c 65 72 3a |: 7bit.X|-Mailer:|
|00000210| 20 4d 6f 7a 69 6c 6c 61 | 20 31 2e 32 32 4b 49 54 | Mozilla| 1.22KIT|
|00000220| 20 28 57 69 6e 64 6f 77 | 73 3b 20 49 3b 20 31 36 | (Window|s; I; 16|
|00000230| 62 69 74 29 0a 54 6f 3a | 20 4d 61 72 74 69 6e 40 |bit).To:| Martin@|
|00000240| 6e 65 7a 75 6d 69 2e 64 | 65 6d 6f 6e 2e 63 6f 2e |nezumi.d|emon.co.|
|00000250| 75 6b 0a 0a 57 68 61 74 | 20 49 20 64 6f 20 66 6f |uk..What| I do fo|
|00000260| 72 20 72 65 61 6c 6c 79 | 20 62 69 67 20 61 72 72 |r really| big arr|
|00000270| 61 79 73 20 69 73 20 63 | 72 65 61 74 65 20 61 20 |ays is c|reate a |
|00000280| 6f 70 61 71 75 65 20 74 | 79 70 65 20 6f 72 20 63 |opaque t|ype or c|
|00000290| 6c 61 73 73 0a 56 49 5a | 3a 0a 0a 54 59 50 45 0a |lass.VIZ|:..TYPE.|
|000002a0| 20 20 20 42 49 47 20 3d | 20 41 52 52 41 59 5b 30 |   BIG =| ARRAY[0|
|000002b0| 2e 2e 4d 41 58 28 43 41 | 52 44 49 4e 41 4c 29 2d |..MAX(CA|RDINAL)-|
|000002c0| 31 5d 20 4f 46 20 42 59 | 54 45 3b 0a 20 20 20 44 |1] OF BY|TE;.   D|
|000002d0| 59 4e 43 4f 4c 20 3d 20 | 50 4f 49 4e 54 45 52 20 |YNCOL = |POINTER |
|000002e0| 54 4f 20 44 59 4e 44 41 | 54 41 3b 0a 20 20 20 44 |TO DYNDA|TA;.   D|
|000002f0| 59 4e 44 41 54 41 3d 20 | 52 45 43 4f 52 44 0a 20 |YNDATA= |RECORD. |
|00000300| 20 20 20 20 20 63 75 72 | 72 65 6e 74 53 69 7a 65 |     cur|rentSize|
|00000310| 3a 43 41 52 44 49 4e 41 | 4c 3b 0a 20 20 20 20 20 |:CARDINA|L;.     |
|00000320| 20 64 61 74 61 20 3a 20 | 50 4f 49 4e 54 45 52 20 | data : |POINTER |
|00000330| 54 4f 20 42 49 47 3b 0a | 20 20 20 45 4e 44 3b 20 |TO BIG;.|   END; |
|00000340| 0a 20 20 20 44 59 4e 41 | 52 52 41 59 3d 20 41 52 |.   DYNA|RRAY= AR|
|00000350| 52 41 59 5b 30 2e 2e 4c | 41 53 54 52 4f 57 5d 20 |RAY[0..L|ASTROW] |
|00000360| 4f 46 20 44 59 4e 43 4f | 4c 3b 0a 0a 49 6e 20 75 |OF DYNCO|L;..In u|
|00000370| 73 65 20 79 6f 75 20 75 | 73 65 20 41 4c 4c 4f 43 |se you u|se ALLOC|
|00000380| 41 54 45 20 6e 6f 74 20 | 4e 45 57 20 74 6f 20 73 |ATE not |NEW to s|
|00000390| 65 74 20 74 68 65 20 61 | 63 74 75 61 6c 20 73 69 |et the a|ctual si|
|000003a0| 7a 65 20 6f 66 20 74 68 | 65 20 0a 64 61 74 61 20 |ze of th|e .data |
|000003b0| 70 61 72 74 20 69 6e 20 | 44 59 4e 41 44 41 54 41 |part in |DYNADATA|
|000003c0| 20 61 6e 64 20 6d 61 6b | 65 20 73 75 72 65 20 74 | and mak|e sure t|
|000003d0| 6f 20 73 61 76 65 20 74 | 68 65 20 63 75 72 72 65 |o save t|he curre|
|000003e0| 6e 74 53 69 7a 65 20 74 | 6f 20 62 65 20 0a 61 62 |ntSize t|o be .ab|
|000003f0| 6c 65 20 74 6f 20 44 45 | 41 4c 4c 4f 43 41 54 45 |le to DE|ALLOCATE|
|00000400| 2c 20 52 6f 77 73 20 6e | 6f 74 20 75 73 65 64 20 |, Rows n|ot used |
|00000410| 61 72 65 20 4e 49 4c 2e | 20 59 6f 75 20 63 61 6e |are NIL.| You can|
|00000420| 20 6f 66 20 63 6f 75 72 | 73 65 20 75 73 65 20 0a | of cour|se use .|
|00000430| 61 6e 79 20 74 79 70 65 | 73 20 73 75 69 74 61 62 |any type|s suitab|
|00000440| 6c 65 20 66 6f 72 20 42 | 49 47 20 61 73 20 6c 6f |le for B|IG as lo|
|00000450| 6e 67 20 61 73 3a 0a 31 | 29 20 69 74 20 69 73 20 |ng as:.1|) it is |
|00000460| 6e 6f 20 6d 6f 72 65 20 | 74 68 61 6e 20 36 34 4b |no more |than 64K|
|00000470| 0a 32 29 20 79 6f 75 20 | 73 75 70 70 6c 79 20 61 |.2) you |supply a|
|00000480| 6c 6c 20 74 68 65 20 70 | 72 6f 63 65 64 75 72 65 |ll the p|rocedure|
|00000490| 73 20 61 6e 64 20 66 75 | 6e 63 74 69 6f 6e 73 20 |s and fu|nctions |
|000004a0| 69 6e 20 74 68 65 20 4d | 4f 44 55 4c 45 20 74 6f |in the M|ODULE to|
|000004b0| 6f 2c 20 0a 74 68 65 20 | 69 6d 70 6c 65 6d 65 6e |o, .the |implemen|
|000004c0| 74 61 74 69 6f 6e 20 6f | 66 20 44 59 4e 41 30 52 |tation o|f DYNA0R|
|000004d0| 52 41 59 20 28 74 68 65 | 20 6f 70 61 71 75 65 20 |RAY (the| opaque |
|000004e0| 74 79 70 65 20 29 20 6d | 75 73 74 20 62 65 20 0a |type ) m|ust be .|
|000004f0| 70 72 69 76 61 74 65 20 | 61 73 20 74 68 69 73 20 |private |as this |
|00000500| 69 73 20 64 61 6e 67 65 | 72 6f 75 73 2e 20 42 65 |is dange|rous. Be|
|00000510| 20 63 61 72 65 66 75 6c | 6c 20 77 72 69 74 69 6e | careful|l writin|
|00000520| 67 20 72 6f 75 6e 74 69 | 6e 65 73 20 74 6f 20 0a |g rounti|nes to .|
|00000530| 72 65 61 64 20 6f 72 20 | 77 72 69 74 65 20 44 59 |read or |write DY|
|00000540| 4e 41 52 52 41 59 2e 20 | 0a 0a 0a                |NARRAY. |...     |
+--------+-------------------------+-------------------------+--------+--------+